home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 May / PCWorld_2003-05_cd.bin / Software / Vyzkuste / sms / sms20.exe / {app} / Defs / dcci_e.mls < prev    next >
Text File  |  2003-03-31  |  554b  |  27 lines
  1. if $send_nick = 1
  2.   set pay_add = ((length "$pay_user") - 1)
  3.   set first = 154 - $pay_add
  4. else
  5.   set pay_add = 0
  6.   set first = 154
  7. endif
  8.  
  9. if $length <= (157 - $pay_add)
  10.   set first = ($first + 3)
  11. endif
  12.  
  13. if $length <= $first
  14.   set msgnum = 1
  15.   set msgleft = ($first - $length)
  16.   set msgcount = $length
  17. else
  18.   set msgnum = (($length - $first + 1) div 156) + 2
  19.   set msgleft = $first + (156 * ($msgnum - 1)) - $length
  20.   set msgcount = 156 - $msgleft
  21. endif
  22.  
  23. set currency = "CZK"
  24. if $length <> 0
  25.   set price = ($msgnum * 1.50)
  26. endif
  27.